home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdep.arc / CPP1731.DSP < prev    next >
Encoding:
Text File  |  1991-12-04  |  6.0 KB  |  110 lines
  1.       **************************************
  2.       *                                    *
  3.       *  Display file - CPP1731            *
  4.       *  Display data base dependencies    *
  5.       *                                    *
  6.       *  (c) Copyright 1984 by Q38         *
  7.       *                                    *
  8.       **************************************
  9.      A                                      REF(QADSPDBR)
  10.      A                                      INDARA
  11.      A                                      PRINT
  12.       *
  13.      A          R CPP1731D                  SFL CHGINPDFT
  14.      A            OPT            1A  I 10  3
  15.      A  41                                  DSPATR(PR)
  16.      A N41                                  DSPATR(UL)
  17.      A            WHREFI    R        B 10  5CHANGE(61 'MDT on File name')
  18.      A                                      CHECK(VN)
  19.      A N41                                  DSPATR(UL)
  20.      A  41                                  DSPATR(PR)
  21.      A            WHRELI    R        O 10 16TEXT('Dependent library')
  22.      A            WHREMB    R        B 10 27CHANGE(62 'MDT on Member name')
  23.      A                                      CHECK(VN)
  24.      A N42N65                               DSPATR(UL)
  25.      A  42
  26.      AO 42                                  DSPATR(PR)
  27.      A            TYPE          12A  O 10 39
  28.      A            OLDFIL    R        H      REFFLD(WHREFI)
  29.      A            OLDMBR    R        H      REFFLD(WHREMB)
  30.      A          R CPP1731C                  SFLCTL(CPP1731D)
  31.      A                                      SFLSIZ(0014)
  32.      A                                      SFLPAG(0012)
  33.      A  21                                  SFLDSP
  34.      A  21                                  SFLDSPCTL
  35.      A N21                                  SFLCLR
  36.      A N99                                  SFLEND
  37.      A                                      PUTOVR
  38.      A                                      OVERLAY
  39.      A                                      CA01(01 'Exit program')
  40.      A                                      CA06(06 'Nullify')
  41.      A                                      HOME(06)
  42.      A                                  1  3DATE
  43.      A                                      EDTCDE(Y)
  44.      A                                  1 12TIME
  45.      A                                  1 28'Q38''s File reference display'
  46.      A                                  1 72'CPP1731'
  47.      A                                  2 29'Data base file relations'
  48.      A                                  3  3'Command'
  49.      A                                  4  3'Parameters:'
  50.      A            FILE          10A  O  4 16DSPATR(HI)
  51.      A  05                                  OVRDTA
  52.      A            LIBR          10A  O  4 27DSPATR(HI)
  53.      A  05                                  OVRDTA
  54.      A            MBR           10A  O  4 38DSPATR(HI)
  55.      A  05                                  OVRDTA
  56.      A            RCDFMT        10A  O  4 49DSPATR(HI)
  57.      A  05                                  OVRDTA
  58.      A                                  5 40'Record Format'
  59.      A                                  6  5'File'
  60.      A                                  6 16'Library'
  61.      A                                  6 27'Member'
  62.      A                                  6 38'Name'
  63.      A                                  6 49'Count'
  64.      A            WHRFI     R        O  7  5DSPATR(HI)
  65.      A  05                                  OVRDTA
  66.      A                                      TEXT('File')
  67.      A            WHRLI     R        O  7 16DSPATR(HI)
  68.      A  05                                  OVRDTA
  69.      A                                      TEXT('Library')
  70.      A            WHRMB     R        O  7 27DSPATR(HI)
  71.      A  05                                  OVRDTA
  72.      A                                      TEXT('Member')
  73.      A            WHRRD     R        O  7 38DSPATR(HI)
  74.      A  05                                  OVRDTA
  75.      A                                      TEXT('Record format')
  76.      A            WHNO      R        O  7 49EDTCDE(Z)
  77.      A                                      DSPATR(HI)
  78.      A  05                                  OVRDTA
  79.      A                                      TEXT('Dependent count')
  80.      A                                  8  5'----------- Dependent ----------'
  81.      A                                      DSPATR(HI)
  82.      A                                  8 39'Type of'
  83.      A                                  9  5'File'
  84.      A                                      DSPATR(HI)
  85.      A                                  9 16'Library'
  86.      A N65                              9 27'Member'
  87.      A                                      DSPATR(HI)
  88.      A                                      INDTXT(65 'MBR(*NONE) specified')
  89.      A                                  9 39'Sharing'
  90.      A                                      DSPATR(UL)
  91.      A          R CPP1731B                   OVERLAY
  92.      A                                 23  9'CMD 1 - End'
  93.      A                                      DSPATR(HI)
  94.      A                                 23 25'CMD 5 - Next file'
  95.      A                                      DSPATR(HI)
  96.      A                                 22  5'1 - DspRcdFmt  4 - DspObjAut  +
  97.      A                                       8 - Remove Mbr  9 - Delete File'
  98.      A                                       DSPATR(HI)
  99.      A          R MSGRCD                    TEXT('PgmMsgQ subfile record.')
  100.      A                                      SFL SFLMSGRCD(24)
  101.      A            MSGKEY                    SFLMSGKEY
  102.      A            PGMSGQ                    SFLPGMQ
  103.      A          R MSGCTL                    TEXT('PgmMsgQ subfile control')
  104.      A                                      OVERLAY
  105.      A                                      SFLCTL(MSGRCD)
  106.      A                                      SFLDSPCTL SFLDSP SFLINZ
  107.      A                                      SFLPAG(1) SFLSIZ(2)
  108.      A N99                                  SFLEND
  109.      A            PGMSGQ                    SFLPGMQ
  110.